home *** CD-ROM | disk | FTP | other *** search
/ Inventor Labs: Technology / INVENTORLABS_TECHNOLOGY.BIN / pc / files / shared.cst / 00139_Script_object movie handlers < prev    next >
Text File  |  1997-07-24  |  1KB  |  27 lines
  1. -- Routines for managing object movies
  2. -------------------------------------------------------------------------------
  3.  
  4.  
  5.  
  6. --=============================================================================
  7. -- ZoomNavMovie:
  8. --      pStartZoomRect specifies the start rect as a string rect
  9. --      [pSkipFirstFrame] is "true" if the first zoom frame should not be shown
  10. --      [pClipRect] is the screen string rect to which the zoom should be clipped
  11. --
  12. -- Zooms the nav movie out from the start rect specified, possibly skipping
  13. -- the first frame and clipping to a given rect.
  14. -- Note: this is unsupported on the PC side
  15. -------------------------------------------------------------------------------
  16. on ZoomNavMovie pStartZoomRect, pSkipFirstFrame, pClipRect
  17.   global gQTVRInstance
  18.   
  19.   -- Make sure we're on a mac before trying this
  20.   if the machineType <> 256 then
  21.     
  22.     if IsQTVRMovie(gQTVRInstance) then
  23.       QTVRZoomOutEffect(gQTVRInstance,pStartZoomRect,pSkipFirstFrame,pClipRect)
  24.       QTVRIdle(gQTVRInstance)
  25.     end if
  26.   end if
  27. end ZoomNavMovie